/* "$Id: mkg3states.c,v 1.12 2015-06-21 01:09:09 bfriesen Exp $ */

/*
 * Copyright (c) 1991-1997 Sam Leffler
 * Copyright (c) 1991-1997 Silicon Graphics, Inc.
 *
 * Permission to use, copy, modify, distribute, and sell this software and
 * its documentation for any purpose is hereby granted without fee, provided
 * that (i) the above copyright notices and this permission notice appear in
 * all copies of the software and related documentation, and (ii) the names of
 * Sam Leffler and Silicon Graphics may not be used in any advertising or
 * publicity relating to the software without the specific, prior written
 * permission of Sam Leffler and Silicon Graphics.
 *
 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
 *
 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 */

/* Initialise fax decoder tables
 * Decoder support is derived, with permission, from the code
 * in Frank Cringle's viewfax program;
 *      Copyright (C) 1990, 1995  Frank D. Cringle.
 */
#include "tif_config.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <getopt.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#include "tif_fax3.h"

#ifndef HAVE_GETOPT
extern int getopt(int, char **, char *);
#endif

#define streq(a, b) (strcmp(a, b) == 0)

/* NB: can't use names in tif_fax3.h 'cuz they are declared const */
TIFFFaxTabEnt MainTable[128];
TIFFFaxTabEnt WhiteTable[4096];
TIFFFaxTabEnt BlackTable[8192];

struct proto
{
	uint16 code; /* right justified, lsb-first, zero filled */
	uint16 val;	 /* (pixel count)<<4 + code width  */
};

static struct proto Pass[] = {
	{0x0008, 4},
	{0, 0}};

static struct proto Horiz[] = {
	{0x0004, 3},
	{0, 0}};

static struct proto V0[] = {
	{0x0001, 1},
	{0, 0}};

static struct proto VR[] = {
	{0x0006, (1 << 4) + 3},
	{0x0030, (2 << 4) + 6},
	{0x0060, (3 << 4) + 7},
	{0, 0}};

static struct proto VL[] = {
	{0x0002, (1 << 4) + 3},
	{0x0010, (2 << 4) + 6},
	{0x0020, (3 << 4) + 7},
	{0, 0}};

static struct proto Ext[] = {
	{0x0040, 7},
	{0, 0}};

static struct proto EOLV[] = {
	{0x0000, 7},
	{0, 0}};

static struct proto MakeUpW[] = {
	{0x001b, 1029},
	{0x0009, 2053},
	{0x003a, 3078},
	{0x0076, 4103},
	{0x006c, 5128},
	{0x00ec, 6152},
	{0x0026, 7176},
	{0x00a6, 8200},
	{0x0016, 9224},
	{0x00e6, 10248},
	{0x0066, 11273},
	{0x0166, 12297},
	{0x0096, 13321},
	{0x0196, 14345},
	{0x0056, 15369},
	{0x0156, 16393},
	{0x00d6, 17417},
	{0x01d6, 18441},
	{0x0036, 19465},
	{0x0136, 20489},
	{0x00b6, 21513},
	{0x01b6, 22537},
	{0x0032, 23561},
	{0x0132, 24585},
	{0x00b2, 25609},
	{0x0006, 26630},
	{0x01b2, 27657},
	{0, 0}};

static struct proto MakeUpB[] = {
	{0x03c0, 1034},
	{0x0130, 2060},
	{0x0930, 3084},
	{0x0da0, 4108},
	{0x0cc0, 5132},
	{0x02c0, 6156},
	{0x0ac0, 7180},
	{0x06c0, 8205},
	{0x16c0, 9229},
	{0x0a40, 10253},
	{0x1a40, 11277},
	{0x0640, 12301},
	{0x1640, 13325},
	{0x09c0, 14349},
	{0x19c0, 15373},
	{0x05c0, 16397},
	{0x15c0, 17421},
	{0x0dc0, 18445},
	{0x1dc0, 19469},
	{0x0940, 20493},
	{0x1940, 21517},
	{0x0540, 22541},
	{0x1540, 23565},
	{0x0b40, 24589},
	{0x1b40, 25613},
	{0x04c0, 26637},
	{0x14c0, 27661},
	{0, 0}};

static struct proto MakeUp[] = {
	{0x0080, 28683},
	{0x0180, 29707},
	{0x0580, 30731},
	{0x0480, 31756},
	{0x0c80, 32780},
	{0x0280, 33804},
	{0x0a80, 34828},
	{0x0680, 35852},
	{0x0e80, 36876},
	{0x0380, 37900},
	{0x0b80, 38924},
	{0x0780, 39948},
	{0x0f80, 40972},
	{0, 0}};

static struct proto TermW[] = {
	{0x00ac, 8},
	{0x0038, 22},
	{0x000e, 36},
	{0x0001, 52},
	{0x000d, 68},
	{0x0003, 84},
	{0x0007, 100},
	{0x000f, 116},
	{0x0019, 133},
	{0x0005, 149},
	{0x001c, 165},
	{0x0002, 181},
	{0x0004, 198},
	{0x0030, 214},
	{0x000b, 230},
	{0x002b, 246},
	{0x0015, 262},
	{0x0035, 278},
	{0x0072, 295},
	{0x0018, 311},
	{0x0008, 327},
	{0x0074, 343},
	{0x0060, 359},
	{0x0010, 375},
	{0x000a, 391},
	{0x006a, 407},
	{0x0064, 423},
	{0x0012, 439},
	{0x000c, 455},
	{0x0040, 472},
	{0x00c0, 488},
	{0x0058, 504},
	{0x00d8, 520},
	{0x0048, 536},
	{0x00c8, 552},
	{0x0028, 568},
	{0x00a8, 584},
	{0x0068, 600},
	{0x00e8, 616},
	{0x0014, 632},
	{0x0094, 648},
	{0x0054, 664},
	{0x00d4, 680},
	{0x0034, 696},
	{0x00b4, 712},
	{0x0020, 728},
	{0x00a0, 744},
	{0x0050, 760},
	{0x00d0, 776},
	{0x004a, 792},
	{0x00ca, 808},
	{0x002a, 824},
	{0x00aa, 840},
	{0x0024, 856},
	{0x00a4, 872},
	{0x001a, 888},
	{0x009a, 904},
	{0x005a, 920},
	{0x00da, 936},
	{0x0052, 952},
	{0x00d2, 968},
	{0x004c, 984},
	{0x00cc, 1000},
	{0x002c, 1016},
	{0, 0}};

static struct proto TermB[] = {
	{0x03b0, 10},
	{0x0002, 19},
	{0x0003, 34},
	{0x0001, 50},
	{0x0006, 67},
	{0x000c, 84},
	{0x0004, 100},
	{0x0018, 117},
	{0x0028, 134},
	{0x0008, 150},
	{0x0010, 167},
	{0x0050, 183},
	{0x0070, 199},
	{0x0020, 216},
	{0x00e0, 232},
	{0x0030, 249},
	{0x03a0, 266},
	{0x0060, 282},
	{0x0040, 298},
	{0x0730, 315},
	{0x00b0, 331},
	{0x01b0, 347},
	{0x0760, 363},
	{0x00a0, 379},
	{0x0740, 395},
	{0x00c0, 411},
	{0x0530, 428},
	{0x0d30, 444},
	{0x0330, 460},
	{0x0b30, 476},
	{0x0160, 492},
	{0x0960, 508},
	{0x0560, 524},
	{0x0d60, 540},
	{0x04b0, 556},
	{0x0cb0, 572},
	{0x02b0, 588},
	{0x0ab0, 604},
	{0x06b0, 620},
	{0x0eb0, 636},
	{0x0360, 652},
	{0x0b60, 668},
	{0x05b0, 684},
	{0x0db0, 700},
	{0x02a0, 716},
	{0x0aa0, 732},
	{0x06a0, 748},
	{0x0ea0, 764},
	{0x0260, 780},
	{0x0a60, 796},
	{0x04a0, 812},
	{0x0ca0, 828},
	{0x0240, 844},
	{0x0ec0, 860},
	{0x01c0, 876},
	{0x0e40, 892},
	{0x0140, 908},
	{0x01a0, 924},
	{0x09a0, 940},
	{0x0d40, 956},
	{0x0340, 972},
	{0x05a0, 988},
	{0x0660, 1004},
	{0x0e60, 1020},
	{0, 0}};

static struct proto EOLH[] = {
	{0x0000, 11},
	{0, 0}};

static void
FillTable(TIFFFaxTabEnt *T, int Size, struct proto *P, int State)
{
	int limit = 1 << Size;

	while (P->val)
	{
		int width = P->val & 15;
		int param = P->val >> 4;
		int incr = 1 << width;
		int code;
		for (code = P->code; code < limit; code += incr)
		{
			TIFFFaxTabEnt *E = T + code;
			E->State = State;
			E->Width = width;
			E->Param = param;
		}
		P++;
	}
}

static char *storage_class = "";
static char *const_class = "";
static int packoutput = 1;
static char *prebrace = "";
static char *postbrace = "";

void WriteTable(FILE *fd, const TIFFFaxTabEnt *T, int Size, const char *name)
{
	int i;
	char *sep;

	fprintf(fd, "%s %s TIFFFaxTabEnt %s[%d] = {",
			storage_class, const_class, name, Size);
	if (packoutput)
	{
		sep = "\n";
		for (i = 0; i < Size; i++)
		{
			fprintf(fd, "%s%s%d,%d,%d%s",
					sep, prebrace, T->State, T->Width, (int)T->Param, postbrace);
			if (((i + 1) % 10) == 0)
				sep = ",\n";
			else
				sep = ",";
			T++;
		}
	}
	else
	{
		sep = "\n ";
		for (i = 0; i < Size; i++)
		{
			fprintf(fd, "%s%s%3d,%3d,%4d%s",
					sep, prebrace, T->State, T->Width, (int)T->Param, postbrace);
			if (((i + 1) % 6) == 0)
				sep = ",\n ";
			else
				sep = ",";
			T++;
		}
	}
	fprintf(fd, "\n};\n");
}

/* initialise the huffman code tables */
int main(int argc, char *argv[])
{
	FILE *fd;
	char *outputfile;
	int c;

#if !HAVE_DECL_OPTARG
	extern int optind;
	extern char *optarg;
#endif

	while ((c = getopt(argc, argv, "c:s:bp")) != -1)
		switch (c)
		{
		case 'c':
			const_class = optarg;
			break;
		case 's':
			storage_class = optarg;
			break;
		case 'p':
			packoutput = 0;
			break;
		case 'b':
			prebrace = "{";
			postbrace = "}";
			break;
		case '?':
			fprintf(stderr,
					"usage: %s [-c const] [-s storage] [-p] [-b] file\n",
					argv[0]);
			return (-1);
		}
	outputfile = optind < argc ? argv[optind] : "g3states.h";
	fd = fopen(outputfile, "w");
	if (fd == NULL)
	{
		fprintf(stderr, "%s: %s: Cannot create output file.\n",
				argv[0], outputfile);
		return (-2);
	}
	FillTable(MainTable, 7, Pass, S_Pass);
	FillTable(MainTable, 7, Horiz, S_Horiz);
	FillTable(MainTable, 7, V0, S_V0);
	FillTable(MainTable, 7, VR, S_VR);
	FillTable(MainTable, 7, VL, S_VL);
	FillTable(MainTable, 7, Ext, S_Ext);
	FillTable(MainTable, 7, EOLV, S_EOL);
	FillTable(WhiteTable, 12, MakeUpW, S_MakeUpW);
	FillTable(WhiteTable, 12, MakeUp, S_MakeUp);
	FillTable(WhiteTable, 12, TermW, S_TermW);
	FillTable(WhiteTable, 12, EOLH, S_EOL);
	FillTable(BlackTable, 13, MakeUpB, S_MakeUpB);
	FillTable(BlackTable, 13, MakeUp, S_MakeUp);
	FillTable(BlackTable, 13, TermB, S_TermB);
	FillTable(BlackTable, 13, EOLH, S_EOL);

	fprintf(fd, "/* WARNING, this file was automatically generated by the\n");
	fprintf(fd, "    mkg3states program */\n");
	fprintf(fd, "#include \"tiff.h\"\n");
	fprintf(fd, "#include \"tif_fax3.h\"\n");
	WriteTable(fd, MainTable, 128, "TIFFFaxMainTable");
	WriteTable(fd, WhiteTable, 4096, "TIFFFaxWhiteTable");
	WriteTable(fd, BlackTable, 8192, "TIFFFaxBlackTable");
	fclose(fd);
	return (0);
}

/* vim: set ts=8 sts=8 sw=8 noet: */
/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 8
 * fill-column: 78
 * End:
 */
